#!/usr/bin/perl

use rmTags;

my @in = <>;
my $out;

$out = rmTags::rmByClass(\@in, 'div', 'stylehead');
$out = rmTags::rmByClass($out, 'div', 'stylefoot');
$out = rmTags::rmByClass($out, 'div', 'license');
$out = rmTags::rmByClass($out, 'div', 'footerinc');
$out = rmTags::rmByClass($out, 'div', 'no');
$out = rmTags::rmByClass($out, 'a',   'wikilink1');

print join '', @{$out};
